home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 43 / 64er_Magazin_Sonderheft_43_19xx_Markt__Technik_de_Side_A.d64 / sieger 1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  173b  |  6 lines
  1. 0 ti$="000000":c=5:b=3125
  2. 1 b=b-4:a=b-8:a=a-a/c:ifa<>int(a)goto1
  3. 2 a=b-1:d%=5-(a/c-int(a/c))*c+.5:b=3125*d%
  4. 3 b=b-4:a=b-8:a=a-a/c:ifa<>int(a)goto3
  5. 4 printb-(d%*2101+20);b;ti/60
  6.